for each loop in r